home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).do / TEXT.READER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  40 lines
  1. 10  REM  =====================
  2. 20  REM     PROGRAM TO READ
  3. 30  REM     APPLE TEXT FILES
  4. 40  REM        "APPLE RAT"
  5. 42  REM  SEQUENTIAL FILES ONLY
  6. 45  REM ======================
  7. 50  REM  INITIALIZE CONTROL
  8. 60  ONERR  GOTO 290
  9. 70 D$ =  CHR$(4)
  10. 80 R$ =  CHR$(13): REM  CARRIAGE RETURN
  11. 90 CA$ =  CHR$(1): REM  CONTROL A
  12. 98  REM    REMOVE LINE 99   <==    AND REM FROM 100 FOR  <==  NORMAL OPERATION OF RAT <== (SEE ALSO LINES 267-270)<CTRL-J><CTRL-J>
  13. 99 NF$ = "MEM MAP"
  14. 100  REM   INPUT "DISK FILE NAME?";NF$: HOME : REM   GET FILENAME
  15. 110  IF NF$ = ""  THEN  END 
  16. 120  PRINT D$;"OPEN ";NF$: REM  ACCESS NAMED FILE
  17. 130  PRINT D$;"READ ";NF$: REM  PREP TO READ
  18. 140 L$ = "": REM  INIT LINE TO NULL STRING
  19. 150  GET C$: REM  GET ONE CHR FROM FILE
  20. 160  IF C$ = R$  THEN 220
  21. 170  REM  CONVERT LOWER TO UPPER CASE
  22. 180 VC =  ASC(C$)
  23. 190  IF VC >96  AND VC <123  THEN C$ =  CHR$(VC -32)
  24. 200 L$ = L$ +C$: REM  ADD CHR TO LINE
  25. 210  GOTO 150: REM  GET NEXT CHR
  26. 220  PRINT R$;D$: REM  SEE PG 54 DOS MANUAL
  27. 230  PRINT CA$;L$: REM  PRINT LINE ON CRT
  28. 240  GOTO 130: REM  GET NEXT LINE
  29. 250  REM  NORMAL PROG FINISHED
  30. 260  PRINT "NORMAL EOF DETECTED."
  31. 267  REM REMOVE LINES 268,269 <== AND REM FROM 270 FOR    <== NORMAL OPERATION OF RAT <== (ALSO SEE LINES 98,100)<CTRL-J><CTRL-J>
  32. 268  PRINT : PRINT "ANY KEY TO RETURN TO BURWELL PAL PROG.";: GET K$: PRINT K$
  33. 269  PRINT  CHR$(4);"RUN PAL.36362.BURWELL.FEB.83.B"
  34. 270  REM GOTO100
  35. 280  REM  ERROR HANDLING ROUTINE
  36. 290 BOO =  PEEK(222)
  37. 300  PRINT D$;"CLOSE ";NF$
  38. 310  IF BOO = 5  THEN  GOTO 260
  39. 320  PRINT "ERROR # ";BOO;" DETECTED."
  40. 330  END